home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Swiftsoft Multimedia Tools / MMTOOL3.EXE / MMDsReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-08-11  |  4.1 KB  |  89 lines
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Fax.: +49 (0)351-8037944              =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 11.08.98 - 14:55:07 $                                        =}
  24. {========================================================================}
  25. unit MMDSReg;
  26.  
  27. {$I COMPILER.INC}
  28.  
  29. Interface
  30.  
  31. Procedure Register;
  32.  
  33. Implementation
  34.  
  35. {$R MMDSOUND.D32}
  36.  
  37. uses
  38.     Controls,
  39.     Classes,
  40.     DsgnIntf,
  41.     SysUtils,
  42.     MMObj,
  43.     MMDSPObj,
  44.     MMDesign,
  45.     MMDSWOut,
  46.     MMDSMix,
  47.     MMDSEdtr,
  48.     MMDSWvIn,
  49.     MMDSCptr,
  50.     MMDSCon,
  51.     MMLevel,
  52.     MMMeter;
  53.  
  54. {=========================================================================}
  55. procedure Register;
  56. begin
  57.     RegisterComponents('MMDSound', [TMMDSWaveOut,
  58.                                     TMMDSWaveIn,
  59.                                     TMMDSWaveMixer,
  60.                                     TMMDSMixChannel,
  61.                                     TMMDSEditor,
  62.                                     TMMDSCapture,
  63.                                     TMMDSCaptureChannel,
  64.                                     TMMDSChannelConnector]);
  65.  
  66.     RegisterComponentEditor(TMMDSWaveMixer, TMMDSWaveMixerEditor);
  67.     RegisterComponentEditor(TMMDSMixChannel, TMMDSMixChannelEditor);
  68.     RegisterComponentEditor(TMMDSCaptureChannel, TMMDSWaveFormatComponentEditor);
  69.  
  70.     RegisterPropertyEditor(TypeInfo(TMMComponent),TMMDSEditor,'EditObject',TMMDSEditorEditObjectProperty);
  71.     RegisterPropertyEditor(TypeInfo(TMMDS3DControl), nil, 'Sound3D', TMM3DSoundProperty);
  72.     RegisterPropertyEditor(TypeInfo(TMMDSPComponent),TMMDSChannelConnector,'Channel',TMMDSChannelConnectorEditor);
  73.  
  74.     RegisterPropertyEditor(TypeInfo(string), TMMDSCaptureChannel,'InputFormat',TMMDSWaveFormatProperty);
  75. end;
  76.  
  77. initialization
  78.     RegisterProperty(ptOutput,'DirectSound',TMMDSMixChannel,'Mixer',TMMDSWaveMixer,nil);
  79.     RegisterProperty(ptInput,'DirectSound',TMMDSPComponent,'Channel',TMMDSChannelConnector,DSChannelConnectCheck);
  80.     RegisterProperty(ptOutput,'DirectSound',TMMDSChannelConnector, 'Level1', TMMLevel, nil);
  81.     RegisterProperty(ptOutput,'DirectSound',TMMDSChannelConnector, 'Level2', TMMLevel, nil);
  82.     RegisterProperty(ptOutput,'DirectSound',TMMDSChannelConnector, 'Meter1', TMMMeter, nil);
  83.     RegisterProperty(ptOutput,'DirectSound',TMMDSChannelConnector, 'Meter2', TMMMeter, nil);
  84.  
  85.     RegisterProperty(ptInput,'DirectSound',TMMDSCapture,'CaptureObject',TMMDSCaptureChannel,nil);
  86.     RegisterProperty(ptOutput,'DirectSound',TMMDSEditor,'EditObject',TMMDSWaveMixer,nil);
  87.     RegisterProperty(ptOutput,'DirectSound',TMMDSEditor,'EditObject',TMMDSMixChannel,nil);
  88. end.
  89.